home *** CD-ROM | disk | FTP | other *** search
/ The Ring Press Kit / The Ring Press Kit.iso / mac / DLwindow.dxr / 00015_3 state button.ls < prev    next >
Encoding:
Text File  |  2001-09-06  |  494 b   |  29 lines
  1. property mySprite, onMember, offMember, downMember, spriteNum
  2.  
  3. on beginSprite me
  4.   mySprite = sprite(spriteNum)
  5.   offMember = mySprite.member.number
  6.   onMember = offMember + 1
  7.   downMember = offMember + 2
  8. end
  9.  
  10. on mouseEnter me
  11.   if not (the mouseDown) then
  12.     mySprite.member = onMember
  13.   else
  14.     mySprite.member = downMember
  15.   end if
  16. end
  17.  
  18. on mouseLeave me
  19.   mySprite.member = offMember
  20. end
  21.  
  22. on mouseDown me
  23.   mySprite.member = downMember
  24. end
  25.  
  26. on mouseUp me
  27.   mySprite.member = offMember
  28. end
  29.